﻿'
' Created by SharpDevelop.
' User: Marquis
' Date: 4/15/2015
' Time: 5:09 AM
' 
' To change this template use Tools | Options | Coding | Edit Standard Headers.
'
Public Partial Class Insta7Closed
	Public Sub New()
		' The Me.InitializeComponent call is required for Windows Forms designer support.
		Me.InitializeComponent()
		
		'
		' TODO : Add constructor code after InitializeComponents
		'
	End Sub
	
	Sub AboutInsta7ToolStripMenuItemClick(sender As Object, e As EventArgs)
		About.MdiParent = Me
		About.Show()
	End Sub
	
	Sub OpenDefaultToolStripMenuItemClick(sender As Object, e As EventArgs)
		MainForm.Show()
		Me.Close()
	End Sub
	
	Sub ExitApplicationToolStripMenuItemClick(sender As Object, e As EventArgs)
		Application.Exit		
	End Sub
	
	Sub MainstreamToolStripMenuItemClick(sender As Object, e As EventArgs)
		InstaView.MdiParent = Me
		InstaView.Show()
		InstaView.Insta.Navigate ("http://websta.me/feed")
	End Sub
	
	Sub PopularToolStripMenuItemClick(sender As Object, e As EventArgs)
		InstaView.MdiParent = Me
		InstaView.Show()
		InstaView.Insta.Navigate ("http://websta.me/popular")		
	End Sub
	
	Sub ToolStripMenuItem1Click(sender As Object, e As EventArgs)
		InstaView.MdiParent = Me
		InstaView.Show()
		InstaView.Insta.Navigate ("http://websta.me/hot")		
	End Sub
	
	Sub EnterProfileNameToolStripMenuItemClick(sender As Object, e As EventArgs)
		Enter_Profile_Name.MdiParent = Me
		Enter_Profile_Name.Show()
	End Sub
	
	Sub EditAccountSettingsToolStripMenuItemClick(sender As Object, e As EventArgs)
		InstaView.MdiParent = Me
		InstaView.Show()
		InstaView.Insta.Navigate ("http://www.instagram.com/accounts/edit")		
	End Sub
	
	Sub ClassicInstagramWebToolStripMenuItemClick(sender As Object, e As EventArgs)
		InstaView.MdiParent = Me
		InstaView.Show()
		InstaView.Insta.Navigate ("http://www.instagram.com")		
	End Sub
	
	Sub BasicFotorToolStripMenuItemClick(sender As Object, e As EventArgs)
		Photo.MdiParent = Me
		Photo.Show()
		Photo.webBrowser1.Navigate ("http://www.fotor.com")		
	End Sub
	
	Sub AdvancedPixlrToolStripMenuItemClick(sender As Object, e As EventArgs)
		Photo.MdiParent = Me
		Photo.Show()
		Photo.webBrowser1.Navigate ("http://pixlr.com/editor")
	End Sub
	
	Sub UploadOpensInSeparateWindowToolStripMenuItemClick(sender As Object, e As EventArgs)
		process.start(Application.StartupPath & "\gramblr\Gramblr.exe")
	End Sub
End Class
